home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / Games / reve / trans / trans.ps < prev   
Encoding:
Text File  |  1995-05-03  |  5.7 KB  |  201 lines
  1.  
  2. %  @(#)trans.ps 1.1 91/02/18
  3. %
  4. %  Copyright (C) 1991 - Valerie Haecky.
  5. %  All rights reserved.
  6. %
  7. %  Permission is granted to copy this source, for redistribution 
  8. %  in source form only, provided the news headers in "substantially 
  9. %  unaltered format" are retained, the introductory messages are not 
  10. %  removed, and no monies are exchanged. 
  11. %
  12. %  Permission is also granted to copy this source, without the 
  13. %  news headers, for the purposes of making an executable copy by 
  14. %  means of compilation, provided that such copy will not be used 
  15. %  for the purposes of competition in any othello tournaments, without 
  16. %  prior permission from the authors. 
  17. %
  18. %  No responsibility is taken for any errors on inaccuracies inherent 
  19. %  either to the comments or the code of this program, but if reported 
  20. %  (see README file), then an attempt will be made to fix them. 
  21. % 
  22.  
  23. /BoardBottom 150 def
  24. /BoardLeft   200 def
  25. /BoardWidth  816 def % divisible by 8 and 3 and 102
  26. /TopMargin   BoardBottom BoardWidth 450 add add def
  27. /SquareWidth BoardWidth 8 idiv def
  28. /Title       (Reve Transcript) def
  29. /TextGap     50 def
  30. /ScaleFactor {0.5 0.5} def
  31. /Gap SquareWidth 3 idiv def
  32. /UpX BoardLeft Gap sub def
  33. /OverY BoardBottom BoardWidth Gap add add def
  34.  
  35. /drawBoard { % - => -
  36.     newpath
  37.       2 setlinewidth
  38.       BoardLeft BoardBottom moveto
  39.       4 {
  40.         BoardWidth  0 rlineto
  41.         0 SquareWidth rlineto
  42.         BoardWidth neg 0 rlineto
  43.         0 SquareWidth rlineto 
  44.       } repeat
  45.       BoardWidth  0 rlineto  
  46.       4 {
  47.         0 BoardWidth neg  rlineto
  48.         SquareWidth neg 0 rlineto  
  49.         0 BoardWidth      rlineto
  50.         SquareWidth neg 0 rlineto
  51.       } repeat
  52.       0 BoardWidth neg  rlineto 
  53.     stroke
  54. } def
  55.  
  56. /labelBoard { % - => -
  57.   newpath
  58.     0 setgray
  59.     /Helvetica-Bold findfont 30 scalefont setfont
  60.  
  61.     UpX BoardBottom Gap add moveto (8) show
  62.     UpX BoardBottom Gap SquareWidth add add  moveto (7) show
  63.     UpX BoardBottom Gap SquareWidth 2 mul add add  moveto (6) show
  64.     UpX BoardBottom Gap SquareWidth 3 mul add add  moveto (5) show 
  65.     UpX BoardBottom Gap SquareWidth 4 mul add add  moveto (4) show 
  66.     UpX BoardBottom Gap SquareWidth 5 mul add add  moveto (3) show 
  67.     UpX BoardBottom Gap SquareWidth 6 mul add add  moveto (2) show 
  68.     UpX BoardBottom Gap SquareWidth 7 mul add add  moveto (1) show 
  69.  
  70.     BoardLeft Gap add OverY moveto (a) show
  71.     BoardLeft Gap SquareWidth add add  OverY moveto (b) show
  72.     BoardLeft Gap SquareWidth 2 mul add add OverY  moveto (c) show
  73.     BoardLeft Gap SquareWidth 3 mul add add OverY  moveto (d) show
  74.     BoardLeft Gap SquareWidth 4 mul add add OverY  moveto (e) show
  75.     BoardLeft Gap SquareWidth 5 mul add add OverY  moveto (f) show
  76.     BoardLeft Gap SquareWidth 6 mul add add OverY  moveto (g) show
  77.     BoardLeft Gap SquareWidth 7 mul add add OverY  moveto (h) show
  78. } def
  79.  
  80. /drawStar { % mul1 mul2 => -
  81.   newpath
  82.     0 setgray 
  83.     BoardLeft SquareWidth 4 -1 roll mul add % mul2 x
  84.     exch
  85.     BoardBottom SquareWidth 3 -1 roll mul add % y
  86.     SquareWidth 90 sub 2 idiv 0 360 arc fill
  87. } def
  88.  
  89. /drawStars { % - => -
  90.   newpath
  91.     2 6 drawStar 
  92.     2 2 drawStar 
  93.     6 2 drawStar 
  94.     6 6 drawStar
  95. } def
  96.  
  97. /showTitle { % - => -
  98.   newpath
  99.     /Helvetica-Bold findfont 
  100.     40 scalefont
  101.     setfont
  102.     BoardLeft Gap sub TopMargin moveto
  103.     Title show
  104.  
  105.     % Now for the other fields:
  106.     /Helvetica findfont
  107.     30 scalefont setfont
  108.  
  109.     BoardLeft TopMargin TextGap 1 mul sub moveto
  110.     (Black: ) show
  111.     BlackPlayer show
  112.  
  113.     BoardLeft TopMargin TextGap 2 mul sub moveto
  114.     (White: ) show
  115.     WhitePlayer show
  116.  
  117.     BoardLeft TopMargin TextGap 3 mul sub moveto
  118.     (Score: ) show
  119.     Score show
  120.  
  121.     BoardLeft TopMargin TextGap 4 mul sub moveto 
  122.     (Date: ) show
  123.     Date show
  124.  
  125.     BoardLeft TopMargin TextGap 5 mul sub moveto
  126.     (Place: ) show
  127.     Place show 
  128.  
  129.     BoardLeft TopMargin TextGap 6 mul sub moveto
  130.     (Time Limit: ) show
  131.     Time show 
  132.  
  133.     BoardLeft TopMargin TextGap 7 mul sub moveto
  134.     (Comments: ) show
  135.     Comments show 
  136. } def
  137.  
  138. /drawStone { % number square color => x y
  139.   newpath
  140.     2 setlinewidth
  141.     
  142.     % a little gray looks better on the printer and does not disturb screen
  143.     dup 0 eq {pop 0.05} if
  144.     dup setgray exch        % number color square
  145.  
  146.     % The next line is a fix to change orientation. Did this instead
  147.     % of rewrite, because we might want to do something with orientation
  148.     % later. Then this line would become a function, and we would have
  149.     % an additional orientation option in the c part.
  150.     % 23 -> 32
  151.     dup 10 mod 10 mul exch 10 idiv add
  152.  
  153.     dup             % number color square square (use 23 as example)
  154.     10 mod             % number color square 3
  155.     1 sub             % number color square 2
  156.     SquareWidth mul         % number color square 204
  157.     SquareWidth 2 idiv add     % number color square 255
  158.     BoardLeft add         % number color square x
  159.     exch            % number color x square
  160.  
  161.     10 idiv             % number color x 2
  162.     9 sub neg 1 sub             % number color x 6
  163.     SquareWidth mul        % number color x 612
  164.     SquareWidth 2 idiv add
  165.     BoardBottom add        % number color x y
  166.  
  167.     % draw the circle 
  168.     1 index 1 index        % number color x y x y
  169.     SquareWidth 20 sub 2 idiv 0 360 arc fill % number color x y
  170.     1 index 1 index        % number color x y x y
  171.     0 setgray
  172.     SquareWidth 20 sub 2 idiv 0 360 arc stroke
  173.     3 index 0 ne {drawNumber} if    % only draw number if no 0
  174. } def
  175.  
  176. /drawNumber { % number color x y => -
  177.   newpath
  178.     3 index 9 gt
  179.       {13 sub exch 15 sub exch}        % ad hoc correction for centering
  180.       {12 sub exch 9 sub exch} ifelse
  181.     moveto            % number color
  182.     /Helvetica-Bold findfont 
  183.     30 scalefont setfont
  184.     1 eq {0 setgray} {1 setgray} ifelse
  185.     2 string cvs show 
  186. } def
  187.  
  188. gsave
  189.   ScaleFactor scale
  190.   Scale scale
  191.   showTitle
  192.   drawBoard
  193.   labelBoard
  194.   drawStars
  195.   
  196. % initial stones
  197.   0 44 1 drawStone
  198.   0 45 0 drawStone
  199.   0 54 0 drawStone
  200.   0 55 1 drawStone
  201.